﻿Imports Microsoft.VisualBasic

Namespace BusinessLogic
    Public Class Advertise
        Implements ModelLayer.IAdvertise
        Public Sub Save()
            DataAccess.AdvertiseData.Save(Me)
        End Sub

        Dim _CompanyName As String
        Public Property CompanyName() As String Implements ModelLayer.IAdvertise.CompanyName
            Get
                Return _CompanyName
            End Get
            Set(ByVal value As String)
                _CompanyName = value
            End Set
        End Property

        Dim _ContactName As String
        Public Property ContactName() As String Implements ModelLayer.IAdvertise.ContactName
            Get
                Return _ContactName
            End Get
            Set(ByVal value As String)
                _ContactName = value
            End Set
        End Property

        Dim _Description As String
        Public Property Description() As String Implements ModelLayer.IAdvertise.Description
            Get
                Return _Description
            End Get
            Set(ByVal value As String)
                _Description = value
            End Set
        End Property
    End Class
End Namespace